home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
mdfjobd.arc
/
MDFJOBDC.CLP
< prev
next >
Wrap
Text File
|
1991-12-04
|
4KB
|
62 lines
000100851111 PGM PARM(&JOBDFULL)
000200840412 DCL &JOBDFULL *CHAR LEN(20)
000300840412 DCL &JOBD *CHAR LEN(10)
000400840412 DCL &JOBDLIB *CHAR LEN(10)
000500851112 DCL &OBJLIB *CHAR LEN(10)
000600851111 DCL &JOBDNM *CHAR LEN(21)
000700860107 DCL &RTNCDE *CHAR LEN(8)
000800840413 DCL &INLLIBL *CHAR LEN(275)
000900851112 DCL &LEN *DEC LEN(15 5) VALUE(500)
001000851111 DCL &CMD *CHAR LEN(500) /* QCAEXEC command */
001100851111 DCL &ERRORSW *LGL
001200851111 DCL &MSGID *CHAR LEN(7)
001300851111 DCL &MSGDTA *CHAR LEN(100)
001400851111 MONMSG MSGID(CPF0000) EXEC(GOTO ERROR)
001500840412 CHGVAR &JOBD %SST(&JOBDFULL 1 10) /* Extract JOBD */
001600840413 CHGVAR &JOBDLIB %SST(&JOBDFULL 11 10) /* Library */
001700900404 RTVJOBD JOBD(&JOBDLIB/&JOBD) LIB(&OBJLIB) +
001800900404 INLLIBL(&INLLIBL)
001900900408 CHGVAR VAR(&JOBDNM) VALUE(&JOBD *TCAT '/' *CAT +
002000900408 &OBJLIB)
002100900404 CALL PGM(MDFLIBL) PARM(&INLLIBL 'JOBD' &JOBDNM +
002200900404 &RTNCDE)
002300860107 IF (&RTNCDE *EQ 'GOOD') DO /* INLLIBL modified */
002400900408 CHGVAR VAR(&CMD) VALUE('CHGJOBD JOBD(' *CAT &JOBDLIB +
002500900404 *TCAT '/' *CAT &JOBD *CAT ') INLLIBL(' *CAT +
002600900408 &INLLIBL *CAT ')')
002700900408 CALL QCMDEXC PARM(&CMD &LEN)
002800851231 SNDPGMMSG MSG('The INLLIBL parameter for job +
002900900408 description ' *CAT &JOBD *TCAT '/' *CAT +
003000900404 &OBJLIB *TCAT ' was modified') +
003100851111 MSGTYPE(*COMP)
003200840209 RETURN /* Normal end of program */
003300851231 ENDDO /* INLLIBL modified */
003400860107 IF (&RTNCDE *EQ 'NOCHG') DO /* No change rqstd */
003500851231 SNDPGMMSG MSG('No change was requested to job +
003600900404 description ' *CAT &JOBDLIB *TCAT '/' *CAT +
003700900404 &OBJLIB) MSGTYPE(*COMP)
003800851231 RETURN
003900851231 ENDDO /* No change rqstd */
004000900408 IF (&RTNCDE *EQ 'CF3') SNDPGMMSG +
004100851231 MSGID(CPF9898) MSGF(QCPFMSG) +
004200851231 MSGTYPE(*ESCAPE) MSGDTA('MDFLIBL +
004300900408 was cancelled with CF3 key')
004400851112 SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
004500851112 MSGTYPE(*ESCAPE) MSGDTA('MDFLIBL command +
004600851112 failed with a return code of ' *CAT +
004700851112 &RTNCDE)
004800851111ERROR: /* Standard error handling routine */
004900851111 IF &ERRORSW SNDPGMMSG MSGID(CPF9999) +
005000851111 MSGF(QCPFMSG) MSGTYPE(*ESCAPE) /* Func chk */
005100851111 CHGVAR &ERRORSW '1'
005200851111ERROR1: RCVMSG MSGID(&MSGID) MSGDTA(&MSGDTA) MSGTYPE(*DIAG)
005300851111 IF (&MSGID *EQ ' ') GOTO ESCAPE
005400851111 SNDPGMMSG MSGID(&MSGID) MSGDTA(&MSGDTA) +
005500851111 MSGF(QCPFMSG) MSGTYPE(*DIAG)
005600851111 GOTO ERROR1 /* Loop back for addl diagnostics */
005700851111ESCAPE: RCVMSG MSGID(&MSGID) MSGDTA(&MSGDTA) +
005800851111 MSGTYPE(*EXCP)
005900851111 SNDPGMMSG MSGID(&MSGID) MSGDTA(&MSGDTA) +
006000851111 MSGF(QCPFMSG) MSGTYPE(*ESCAPE)
006100851111 ENDPGM